www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/FeedbackView.asp
<!--#include file="Inc/SysProduct.asp" -->
<!-- #include file="Head.asp" -->
<table width="1000" height="579" border="0" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td width="265" height="563" valign="top" background="imgbsy/l1.jpg"><table cellspacing="0" cellpadding="0" width="265" border="0">
<tbody>
<tr>
<td><img height="34" src="imgbsy/gg.jpg" width="265" /></td>
</tr>
<tr>
<td valign="top" width="265" background="imgbsy/gg11.jpg" height="114"><table width="245" border="0">
<tbody>
<tr>
<td width="10"> </td>
<td width="225"><marquee onmouseover="this.stop()"
style="FONT-SIZE: 9pt; COLOR: #000000" onmouseout="this.start()"
scrollamount="1" scrolldelay="50" direction="up" width="210"
height="90">
<table bordercolor="#ffffff" cellspacing="0" cellpadding="0"
width="210" align="center" border="0">
<tbody>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 1 * from Affiche order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%i=0
do while not rs_news.eof%>
<tr>
<td valign="top">
<span class="px12">
本站公告：
<a href='#' onclick="javascript:window.open('Affiche.asp?ID=<%=rs_news("id")%>', 'newwindow', 'height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')" title='<%=cutstr(rs_news("title"),15)%>'><font color='#FF0000'><%=cutstr(rs_news("title"),15)%></font></a>
</td>
</tr>
<%rs_news.movenext
i=i+1
if i=6 then exit do
loop
rs_news.close %>
</tbody>
</table>
</marquee></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td><img height="30" src="imgbsy/feed1.gif" width="265" /></td>
</tr>
<tr>
<td><img height="9" src="imgbsy/fbjx1_07.jpg" width="265" /></td>
</tr>
<tr>
<td valign="top" background="imgbsy/fbjx1_08.jpg"><table width="245" border="0">
<tbody>
<tr>
<td width="49" height="25"><div align="right"><img height="4" src="imgbsy/d1.gif" width="4" /></div></td>
<td class="px12-5" width="186"> <a href="FeedbackView.asp" class="px12-5">查看留言</a> </td>
</tr>
<tr>
<td colspan="2" align="right"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#EBEBEB"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="49" height="25"><div align="right"><img height="4" src="imgbsy/d1.gif" width="4" /></div></td>
<td class="px12-5" width="186"> <a href="Feedback.asp" class="px12-5">我要留言</a> </td>
</tr>
<tr>
<td colspan="2" align="right"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#EBEBEB"></td>
</tr>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td><img height="9" src="imgbsy/fbjx1_10.jpg" width="265" /></td>
</tr>
<tr>
<td><img height="37" src="imgbsy/con1.gif" width="265" /></td>
</tr>
<tr>
<td valign="top" width="265" background="imgbsy/tu1.jpg" height="180" style="padding-top:5px;">
<!--#include file="qq.asp" -->
</td>
</tr>
</tbody>
</table></td>
<td valign="top" background="imgbsy/fbjx1_04.jpg"><table cellspacing="0" cellpadding="0" width="735" border="0">
<tbody>
<tr>
<td width="735" height="38" background="imgbsy/title.gif"><table width="735" height="38" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="173" class="about1">查看留言</td>
<td width="388"> </td>
<td width="174" class="about2"> 首页 >> 留言中心</td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" background="imgbsy/fbjx1_04.jpg" bgcolor="#FFFFFF"><table cellspacing="0" cellpadding="0" width="700" align="center">
<tbody>
<tr>
<td class="px12" valign="top" style=" padding-top:20px; padding-left:10px; padding-right:15px; line-height:25px;">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Feedback where Language='0' and Publish<>'1' order by id desc"
rs.open sql,conn,1,1
dim MaxPerPageFeedback
MaxPerPageFeedback=5
'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPageFeedback
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
call list
'显示帖子的子程序
Sub list()%>
<%
If rs.eof and rs.bof then
If rs.eof and rs.bof then
response.write "<br> 没有留言"
exit Sub
End if
End if
%>
<br>
<%
i=0
do while not rs.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" >
<tr bgcolor="#E8E8E8">
<td width="17%" height="30" align="right" bgcolor="#FFFFFF" > 主 题： </td>
<td colspan="5" bgcolor="#FFFFFF">
<%if rs("username")="管理员"then%>
[管理员公告]
<%end if%>
<%=rs("title")%></td>
</tr>
<tr bgcolor="#DFDFDF">
<td height="22" align="right" bgcolor="#FFFFFF" > 反馈内容： </td>
<td colspan="5" align="center" bgcolor="#FFFFFF" ><table width="97%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="40" ><%=rs("Content")%></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#EFEFEF">
<td height="30" align="right" bgcolor="#FFFFFF" > 留言者： </td>
<td width="22%" bgcolor="#FFFFFF" ><%=rs("Receiver")%></td>
<td width="12%" align="right" bgcolor="#FFFFFF" >留言时间：</td>
<td width="17%" bgcolor="#FFFFFF" ><%=rs("Time")%></td>
<td width="12%" align="right" bgcolor="#FFFFFF" >回复时间：</td>
<td width="20%" bgcolor="#FFFFFF" ><%=rs("Retime")%> </td>
</tr>
<tr bgcolor="#DFDFDF">
<td height="22" align="right" bgcolor="#FFFFFF" class="wz2a" > 管理员回复： </td>
<td colspan="5" align="center" bgcolor="#FFFFFF" ><table width="97%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="4"></td>
</tr>
<tr>
<td height="40" align="left" ><%if rs("ReFeedback")=""then%>
["未回复"]
<%else%>
<%=rs("ReFeedback")%>
<%end if%>
</td>
</tr>
<tr>
<td height="4"></td>
</tr>
</table></td>
</tr>
</table>
<%
i=i+1
if i >= MaxPerPageFeedback then exit do
rs.movenext
loop
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="45"><div align="right">
<%
Response.write "全部"
Response.write "共" & Cstr(Rs.RecordCount) & "条留言 "
Response.write "第" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " "
If currentpage > 1 Then
response.write "<a href='FeedbackView.asp?&page="+cstr(1)+"'> 首页 </a>"
Response.write "<a href='FeedbackView.asp?page="+Cstr(currentpage-1)+"'> 上一页 </a>"
Else
Response.write " 上一页 "
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='FeedbackView.asp?page="+Cstr(currentPage+1)+"'> 下一页 </a>"
Response.write "<a href='FeedbackView.asp?page="+Cstr(Rs.PageCount)+"'> 尾页 </a>"
Else
Response.write ""
Response.write " 下一页 "
End if
Response.write "转到第"
response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
for i = 1 to Rs.PageCount
if i = currentpage then
response.write"<option value='FeedbackView.asp?page="&i&"&id="&id&"' selected>"&i&"</option>"
else
response.write"<option value='FeedbackView.asp?page="&i&"&id="&id&"'>"&i&"</option>"
end if
next
response.write"</select>页"
%>
</div></td>
</tr>
</table>
<%end sub%>
</td>
</tr>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr valign="top">
<td background="imgbsy/m1.jpg" colspan="2"></td>
</tr>
<tr valign="top">
<td colspan="2" background="imgbsy/m1.jpg" bgcolor="#FFFFFF"></td>
</tr>
<tr valign="top">
<td colspan="2" height="16"><img height="16" src="imgbsy/b1.jpg" width="1000" /></td>
</tr>
</tbody>
</table>
<!--#include file="foot.asp" -->